1 REM ^-    >GEMACHT VON  * LUKIAN *
10 POKE53280,.:POKE53281,.:PRINTCHR$(147):POKE36879,59:
12 DIM A%(5,5):FORN=0TO4:READA%:FORZ=0TO5:A%(N,Z)=A%:NEXTZ,N:DATA28,5,31,158,30
14 GOTO32
16 PRINT"DU KANNST DIE DISKETTE JETZT UMDREHEN!!":TI$="000002":WAIT161,1
18 FORN=5TO1STEP-1:PRINTSPC(1)"[144]";SPC(10);"[145]":A$=MID$(STR$(N),2):NEXT
20 FORN=0TO2:FORZ=1TO1:PRINT:FORQ=0TO4
22 PRINTCHR$(A%(N,Q));"[147]HE! SCHLAF NICHT EIN!":FORM=1TO50STEP-10
24 PRINT" ":NEXTM
26 PRINT"WIE LANGE WILLST DU NOCH WARTEN?[145][145][145][145][145][145][145][145][145][145][145][145]":NEXTQ,Z,N:RETURN
28 FORN=5TO1STEP-1:A%(X,N)=A%(X,N-1):NEXT:A%(X,0)=A%(X,5):RETURN
30 FORN=5TO1STEP-1:A%(N,X)=A%(N-1,X):NEXT:A%(0,X)=A%(5,X):RETURN
32 GOSUB16:FORY=0TO2:X=INT(9*RND(1)):ON1+4*RND(1)GOSUB28,30:GOSUB20:NEXTY
34 GETA$:IFA$="1"THENSYS65234:X=VAL(A$):IFA$="2"THENX= 5:IFX=0GOTO36
36 IFX>5THENX=X-6:GOSUB30:GOTO38:X=5-X:GOSUB28:
38 GOSUB20:PRINT"[147]    DU MACHST ES NICHT?      NA,GUT!   ":
40 TI$="000003":WAIT161,1:POKE 1,54